home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / util / sys / stringer.lha / Stringer20 / start_most.rexx < prev    next >
OS/2 REXX Batch file  |  1996-10-08  |  783b  |  26 lines
  1. /* 
  2.  * Stringer example AREXX script to use with the text viewer
  3.  * Most by Uwe Roehm (tested with v1.56)
  4.  *
  5.  * Displays a Textfile in Most and jumps to the match location
  6.  *
  7.  * To use this script to start Most as your default pager
  8.  * edit your default pager line in ENV:Stringer.prefs to this:
  9.  *
  10.  * rx >NIL: rexx:start_most.rexx %u "%f"
  11.  *
  12.  * This is a bit nasty since we assume that only one Most is
  13.  * running and therefore we use the MOST.0 portname without querying
  14.  * for a name.  Please write a better one and send it to me.
  15.  * Most must be in your search path for this script to work.
  16.  *
  17. */
  18.  
  19. PARSE ARG arguments
  20. PARSE VAR arguments position filename
  21.  
  22. ADDRESS COMMAND 'Run >NIL: Most 'filename
  23. ADDRESS COMMAND 'WaitForPort MOSTPORT'
  24. ADDRESS MOST.0 Goto LINE position
  25. RETURN
  26.